home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1994 November / Cd Ware (Nro. 2) - Epimundo.iso / DOS / ED / PCKEY.ZIP / DOTEST2.SCR < prev    next >
Encoding:
Text File  |  1993-05-25  |  452 b   |  29 lines
  1. :dotest2.scr
  2.  
  3. :testa
  4. clear 20
  5. cursor 2 22
  6. print 'In your own time, type the above keys.
  7. cursor 9 18
  8.  
  9. start 3
  10. test -
  11. clear 22
  12. cursor 0 22
  13. if mistakes 3 = 0 print 'Well done. 
  14. print 'You made 
  15. if mistakes 3 > 0 mistakes 3
  16. if mistakes 3 = 0 print 'no
  17. print ' mistake
  18. if mistakes 3 ! 1 print 's
  19. print '.
  20. if mistakes 3 = 0 goto exit
  21. print ' Try again.
  22. script - waitspc
  23. clear 19 20
  24. goto testa
  25.  
  26. :exit
  27. script - waitspc
  28. clear 19 20
  29.